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ABSTRACT 


A single user Pascal programming station based on the 
Pascal-P compiler has been implemented on a 16-bit mini- 
computer, The original P-compiler, designed for a 60 bit 
CDC machine, is modified to handle variable length data 
types on the 16 bit machine. Run time checks for arrays and 
subranges have been added. Also implemented are a P-Assembler, 
a P-Interpreter to interpret the output of the P-Assembler, 
Pascal file primitives and a command processor. The addition 
of four relevant instructions and a transparent memory 
manager and reorganization of the compiler code shows superior 
compiler performance, based on studies conducted in a simulated 
environment. 
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CHAPTER 1 
INTRODUCTION 


Portability is a measure of the ease with which a program 
can be transferred from one environment to another. Portability 
is important for compiler systems so that we can install the 
language processor on as many computer systems as possible, 
in a short time. The trend towards interpreter based systems 
is on the increase because most of the present day computer 
architectures are not suited for the easy implementation of 
advanced high level languages. 

Many efforts have been made to design portable 
programming systems [6,15]. The Pascal-P compiler is a 
portable compiler for a subset of standard Pascal [12]. 

The Pascal-P compiler produces object code to run on a P- 
machine. The P-machine is an idealized stack machine. Code 
for this machine is termed P-code. The P-code is designed 
to be compact so that programs in P-code are shorter than 
the corresponding programs in conventional machine code. 

This is natural because the instruction set of the P-machine 
strongly reflects the constructs available in Pascal. The 
P-compiler is compact because the code generation for the 
P-machine is simple and straightforward. A P-compiler is 
highly portable as, it is fairly easy to implement a P- 
raachine. PAS316, which is the subject of this report is a 
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single user programming system based on the P-compiler arid 
implemented on TDC-316. 

The *P* in P-machine and P-code stands for ’ pseudo *• 

The P-Htnachine may be implemented as a physical processor or 
may be emulated by an interpreter. 

The P-compiler in its original form cannot be efficiently 
implemented on a 16-bit minicomputer. Hence, it has been 
modified to handle variable length data types. The instru- 
ction set has been modified to accommodate the type infor- 
mation and extended to handle local variables efficiently. 

The compiler now generates code to check array and subrange 
bounds. 

The P-compiler produces as its object code a P-machine 
assembly language program. The P-assembler assembles this 
program and loads it in the P-machines code array, ready 
for interpretation. 

The P-code produced by the P-assembler is interpreted 
by the P-interpreter* The interpreter also performs 
machine dependent 10, It fetches each P-code instruction in 
sequence and performs the appropriate action. The effect 
of this interpretation is manifested as a change in the 
state of the Pnnachines data segment, consisting of the Stack 
and the Heap. ' 

The environment to run the P-compiler comprises of 
of about lOOK bytes of memdry and file-handling primitives. 
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The P-code contains instructions to handle text files, 

Pascal file 10 operators have been implemented, A temporary 
filing system has been implemented to handle files. This 
pseudo-filer is interfaced with the disk through the diskio 
module. The basic TDC-316 computer supports direct addressing 
of 64 K bytes of memory. Hardware facilities for memory 
extension have been used and a transparent memory manager 
that maps 8 physical segments to 32 virtual segments each 
of 4 K words has been implemented, 

A command processor helps the user to interact with the 
various subsystems of PASS 16, =. The compilers performance, 
with the new instructions and the memory manager has been 
studied in a simulated environment on DEC 10. The segment 
swap rate has been observed for various test programs. 

The poor performance of the P-compiler was attributed 
to the large number of segment faults. The reason for this 
is the large number of intersegment procedure calls. An 
attempt has been made to combine the most often used pro- 
cedures into contiguous segments, by reorganizing the P- 
Assembly language program produced by the compiler when 
compiling itself. There is an appreciable performance 
improvement after reorganization. 

The P-c6rapiler and the various subsystems of the PAS316 
system are discussed in the following chapters. 
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CHAPTER 2 

PASCAL-P COMPILER 

The Pascal-P compiler is a portable compiler for a 
subset of standard Pascal. The compiler is written using 
exactly the subset it processes and is self-compiling. Its 
output is an assembly language program of a hypothetical 
stack computer called P-machine. The stack computer is 
machine independent and also simple. The ’PV compiler was 
designed such that it can be transported from one computer 
to another at very little cost in terms of programming 
effort. 

2.1 TDC-PASCAL-P 

The Pascal-P compiler released by ETH, Zurich in 1973, 
is not suitable for implementing on mini-computers. It 
assumes that all the basic variable types provided in 
Pascal, to occupy one unit of memory. Thus an integer 
variable, a real variable, a character variable and a 
set variable are treated uniformly by the P-code load and 
store instructions. The initial implementation of the 
stack computer was on a 60 bit CDC machine. But, on a 16 
bit machine like TDC-316, it is unwise to allocate equal 
store for all types. 

Thus, it was necessary to effect modifications to the 
existing P-compiler at IIT Kanpur, to generate the necessary 
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type information with the load and store instructions of 
the stack computer. The P-compiler with the above modifi- 
cations is implementableon TDC-316, 

The P-compiler was not generating codo for run-time 
checking of array bounds and subrange bounds. We strongly 
felt their necessity. They are now available and can be 
turned off through the switch ;^R-, 

The P-machine instruction repertoire has been augmented 
with 4 new instructions. These are : 


LDLt' 

Q 

**N 

t 

load variable at local address Q. 

STLt 

Q 


store variable at local address Q 

LAL 

Q 


load local address 

UJC 


i 

error in case statement 


*t' indicates type, it takes the following values : A,B,I,R 
and S and denotes address, boolean, integer, real and set 
respectively. Local implies local to the current activation 
record. For loading and storing of local variables on the 
stack, the compiler generates the above new set of local 
instructions instead of LODt 0,Q, STRt 0,Q and LDA 0,Q 
respectively. 

The handling of the CASE statement has been modified, to 
indicate error in case of an undefined case label occurring 


at run-time. 
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VAR I i 0**5f 
BEGIN 
CASE I OF 
0 t f 
2 i S 
4 i 
END 
END* 
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The modification done to the case statement handling 
can be appreciated by studying Fig, 2.1* 

The case bounds are now checked by the single instru- 
ction CHKS, and in case of a range error, the execution is 
aborted. For values of I equal 1 and 3, UJC, instruction 
is generated. So that, if the values 1 or 3 occur at 
run-time, the execution is aborted instead of passing it as 
a no-operation, 

2.2 THE PASCAL-P COMPILER OPTIONS 

The Pascal-P compiler uses three external files. They 
are named INPUT, OUTPUT and PRR and are all of type TEXT. 

The file INPUT contains the source program} the file OUTPUT 
contains the source program listing (optionally), the symbol 
tables (optionally), and compiler messages} and the file PER 
optionally contains the object program for the P-machine, - 
in its assembly-language form. By ’optionally’ we mean that 
these components may or may not bo included in the respective 
files depending on the user’s discretion. These user options 
can be set at any point in the user program by means of a 
pseudo-comment. A pseudo-comment is one in v/hich the first 
symbol within the comment is a symbol,. Following the 
symbol are option settings separated by ’ , ’ symbol. An 
option setting starts with the letters ’L’, to indicate 
’listing’, or ’T’, to indicate 'tables’, or ’C ’, to indicate 
'code*, or ’R’ to indicate generation of ’run-time tests’ by 
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the compiler! this letter is followed by either a *+* or a 
symbol, to turn the option DN or OFF respectively. 
Default settings for these options are : L is ON? T is OFF? 

C is ON? R is ON. 

2,3 THE PASCAL-P COMPILER PERFORMANCE 

The addition of the new instructions has enabled the 
compiler to produce a high density code. This not only 
results in saving of memory space, but also reduces the 
frequency of instruction fetches. 

The performance of the compiler with a swappable code 
space has been studied, in a simulated environment on 
DEC- 10, A memory manager was designed to map 5 physical 
segments into 14 virtual segments, for the purpose of the 
study. The replacement policy used is an LRU approximation, 
[see Chapter 3], The compiler's speed has been observed 
to suffer due to a largo number of segment faults. 

An analysis of the compiler’s procedure calling 
sequence [see Appendix 2] reveals that the number of inter- 
segment procedure calls are high, A reorganization of .the 
P-code of the compiler was undertaken to cluster the related 
procedures and reduce inter-segment calls. The reorganization 
is based on an analysis of the procedure calling sequences of 
the compiler, for various test programs, A sample of the 
study results is available in Appendix 2, 
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^ The compilor-s performance showed an appreciable 

improvement owing to the reorganization. The memory 

manager implemented in the PAS316 system, supports 

resident segments. By usina thic -f -tx 

g this facility and making the 

most often used segments resident thci 

» system performance 

can be improved furthe-r tk,* 

‘ requires an indepth study 

of the compiler's Drocedn-ro r>-.n • 

procedure calling sequences. 
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CHAPTER 3 

ENVIRONf>ffiNT A^JD SUPPORT FOR PASCAL-P SYSTEM 

Nori et al« [13] describe the minimal configuration 
required to run a P-corapiler through an interpreter. These 
requirements include more than lOOK bytes of core memory 
and availability of a family of high level instructions for 
transfer of data between memory and external files. 

A cursory look at the specifications of TDC~316 is 
enough to conclude that the machine does neither provide 
the requisite core near the necessary file 10 operators. 
Section 3.1 describes the methodology used for creating 
the high level operators for file handling as required by 
the PAS316 system. Section 3.2 investigates the various 
strategies that can be used to circumvent the lack of core 
memory and the scheme actually implemented, 

3.1 ENVIRONMENT FOR PAS316 SYSTEM 

The Pascal~P compiler supports the use of four text 
files. It needs a filing system to handle these files. 
Depending on the work environment, i.e., interactive or 
batch, the filing system must be augmented with the necessary 
10 support. 

A Pascal program interacts with the environment only 
through the four predefined text-files. The PAS316 system 
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expects all these files to reside on the disk. Since there 
is no filing system on TDC-316 at present, a temporary 
interface has been implemented. This interface is designed 
to support upto six files. In this system the user supplies 
the starting track, surface, sector address of his files. 

This parameter termed physical filename, for the purpose 
of this report may be replaced by the actual filename, when 
a regular filing system is available. 

The PAS316 systems* interface structure with the disk 
is as shown in Fig, 3,1. A description of this interface 
follows : 

Pascal-P machine as envisaged by Nori et al. accesses 
the files by means of a set of file 10 operators. These 
operators are provided by the layer PAS316 file 10 primitives. 
This layer enables the P-Machine to manipulate sequential 
files as if they are the fundamental structure of data handling 
on the mass-storage device. The transformation between the 
above view and the reality in which the data is stored as 
collection of smaller units of information called blocks is 
provided by the layer pseudo filer. The pseudo filer layer 
relies on diskio lafer for transfer of data between computer 
memory and disk, 

3,1,1 PAS316 - File Primitives [l4] 

The entire PAS316 system manipulates sequential files 
using the primitives provided by the module PAS316 file 10, 
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This uniformity between the P-code instructions operation 
and the rest of the system could be achieved mainly because 
of the nonavailability of explicit 10 instructions in 
BLISSlli 


A formal definition of a sequence is • necessary to 
understand the working of the elementary file operators and 
is given belows 

(a) 4 > denotes the empty sequence 

(b) called a singleton sequence 

(c) If X = and 

y = ....... Y^y are sequences, then 

X ^ y = <x^, x^,y^, Yj^y 

is the concatenation of x and y. 


(d) If X = •••., x^^ is a non-empty sequence, then 

first (x) = x^ 


denotes the first element of x. 


(e) If X = ^x^, is a non-empty sequence, then 

rest(x) = ^x^, x^^ 

Pascal allows only sequential access to files. The 
essence of sequential access is that at any time only a 
single specific component of the sequence is immediately 
accessible. This component is specified by the current 
position of the access mechanism. This position can be 
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altered using file operators. The most frequently used 
operation is to move to the next component of the file. 
Another operation of interest is to move the current pointer 
to the beginning of the entire sequence. 

Also, a file can only be in one of two states : either 
in the state of being constructed (written) or of being 
scanned (read). We can formally define the position of 
current pointer of a file by regarding a file x to be parti ti 
oned into two parts, part Xj^ to the left of this pointer and 
a part Xj^ to its right. Hence, 

X = ^ Xj^ (concatenation) 

Associated with each Pascal file is an implicit 
auxiliary variable that represents a buffer. This variable 
has the same type as the base type of the file. Since 
Pascal-P supports only text files, all buffer variables are 
of type character. The buffer variable of a file x is 
denoted by x't' • 

Pascal provides the following elementary file operators 
to its users. 

i) Constructing the empty tfile. 

rewrite (x) = xj= < 

The operator rewrite is used to erase any existing file 
X and initiate the process of constructing a new file, with 


name x 
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ii) Extending a file 
Put(x) = XJ= X 

The operator put appends the value of x to the file x. 

iii) Initiation of a scan 

reset(x) = j 

Xj^:= X ; 

x := first(x) 

The operator reset is used to initiate ihe process of 
reading a file. It sets the current pointer for the file to 
its first component. 

iv) Proceeding to the next component 

get(x) = Xj^) = x^:- ^ first(xj^) > 

Xj^:= rest{xj^)> 
x := first(rGst(xp,) ). 

note : first(s) is defined only if s -C, > . 

v) The predicate 
eof(x) = Xj;^ =•< > 

The operation get(x) can therefore only be executed if 
the predicate eof(x) is false. 

To ease the task of handling text files, the Pascal 
user is also provided with the following additional operators. 
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vi) read(x,VAR,v) = vj= 5 get(x) 
prerequisites not eof(x) 

vii) Vnfrite (x,e)j e is an expression of type character 
~ x't' srej put(x) 

prerequisite: eof(x) 

The line marker used is the ASCII character sequence 

CR LF. 

viii) V/riteln(x) append a line marker to the file x, 

ix) Readln(x) skip characters on file x upto the one 
immediately following the next line markert 

x) Eoln(x), 

A boolean function. True, if the file position had 
been advanced to a line marker j false otherwise. Also, if 
eoln(x) is true then x-^ = blank( ASCII 40B). 

We shall now investigate the functions provided by 
each of the layers shown in Fig, 3.1, 

3.1.2 PAS316 - File 10 

This module enables the programmer to perform the 
elementary file operations as defined in the previous 
section. The user interacts with his files through a logical 
filename* For the purpose of this implementation the logical 
filename is required to be an integer between 0 and 5, The 
physical filename now consists of three integers denoting 
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the track, surface and sector address of the file on disk. 

This parameter can be replaced by a physical filename when 
a regular filing system is operational. 

The user has to supply a one character buffer, for each 
of his files. This constitutes the auxiliary variable 
defined in Section 3.1.1, 

The main data structure manipulated by the file operators 
is 

filetable i ARRAY[0.,5] OF (* six files 
RECORD 


fspj BYTEj (* file specifier returned 
by filer *) 
eolns BOOLEAN; 
eof : BOOLEAN; 

auxch j BYTE; (* needed for managing 
EOLN lookahead *) 
bufadr : WORD (* user supplied one 
character buffer *) 

END; 

This module interacts with the pseudo filer described in 
Section 3. i«3. 


The entry points of this module are s 
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■ Legend s 1 = logical filename | 
b = Buffer address; 
p = physical filename. 

a) reset (l,b,p)j 

b) rewrite (l,b,p)} 

c) get (1)5 

d ) put( 1 ) j 

e) readln (1); 

f) writeln (l); 

g) read (l,VAR ch)j 

h) write (l,ch)j 

i) roadint (l,VAR N)j 

j) endofline (I); 

k) endoffile (l); 

l) fileclose (l)j 

For details refer the program listing provided in 
Appendix 6. 

3 . 1.3 Pseudo-filer 

The pseudo-filer is nothing but a buffer manager, 
handling six buffers. It has an array of six buffers, A 
buffer is allocated to a file when it is opened and deallo- 
cated when a file is closed. 

The data structures handled are : 
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buffertable ; ARRAY[0..5, 0..2553 OF BYTEj 
openfilestablej ARRAY[0..5] OF 

RECORD 

baseadr: WORDj (* base disk address *) 
curadr s WORDj (* current disk address *) 
purpose: BYTE} (* read/write)*) 
bufferptr: BYTE (* current byte pointer *) 
END} 

A file can be opened for either reading or writing, 
by giving the physical file name* The module returns a 
file specifier (fsp) for each file opened. This file 
identifier can be used for accessing the file by the user* 

The entry points of the pseudo-filer are : 

a) open (physical filename, purpose, VAR fsp, VAR flag)} 
If flag = true is returned im.plies buffers exhausted, 

b) Close (fsp)} 

c) getbyte (fsp, VAR ch)} 

d) putbyte (fsp, ch)} 

3.1*4 Disk - 10 

The pseudo-filer uses the disk-IO to put and get 
sectors from the disk. 


This module is totally device dependent and interacts 
with the Disk controller of TDC-316 to transfer a given number 
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of words between the disk and memory. 

The routines that perform the transfer are ; : 

a) putblk (track, surface, sector, word count, memory address). 

b) getblk ( track, surface, sector, word count, memory address); 

3.2 MEMORY MANAGEMENT 

Clearly the memory requirements of a Pascal-P system 
are too large to implement on the basic TDC-316 computer. 

Some form of overlay technique is essential. There are a 
number of ways of tackling this problem, 

3.2.1 Multi-pass Compiler 

Writing a multi-pass Pascal Compiler I This as is 
obvious will call for major changes in the design philosophy 
of the existing Pascal-P compiler. Further, it will cost us 
the elegance and simplicity of the P-cempiler, 

3.2.2 Code Segmentation 

An alternative solution is to use virtual memory 
techniques using Pascal procedures as virtual memory segments. 
This approach is attractive as it avoids the error prone 
alteration of the compiler codei 

In this scheme, the P-code can be split into segments 
by the compiler, each segment consisting of the code of one 
procedure. Segmentation of the data segments would call for 
considerable effort. 
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Hence, a proposal to restrict the virtual memory 
operations to the pure code block of the P-system and to 
use in core memory for the other segments has the following 
advantagesi 

a ) Since the swappable segments contain pure code they 
need not be copied on the backing store on swapping. 

b) Since a goto statement leading out of a procedure body 
is not available in the Pascal-P language, access to a 
segment occurs only upon procedure entry and exit. Hence, 
segment management considerations have to be taken care 
only on the CALL and RETURN P-instructions, 

c) No interference to data accessing and addressing is 
necessary, which normally is cause for excessive over- 
heads, if performed through software. 

This proposition is attractive for machines, lacking in 
hardware facilities for memory management, and suffering from 
lack of large address space, {e.g. SOSOAiiP). We, therefore, 
analyse this scheme in greater detail. 

The memory management is likely to be complex as proce- 
dures vary in size. This also leads to external fragmentation. 
Further, as the replacement policy has to be implemented 
exclusively through software, it will involve considerable 
overheads. Thus, leading to considerable slackening of an 
already slow interpreter. 
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For a machine with a main memory of 64K bytes, 
after satisfying the memory needs of the various resident 
segments, the swap space available will be relatively small. 
We predict severe thrashing in such environments. This 
problem is further compounded by the structure of the com- 
piler. 


Owing to the recursive descent nature of the compiler, 
the number of active procedures is generally large. In 
addition, the most often used procedures like lexical 
analyzer and expression parsing routines are comparatively 
large. 

Example 3.1 ; (Failure of strict LRU policy) 

If we use an LRU replacement policy, because of the 
lack of swap space and due to the considerable variation 
in the size of the segments [see Appendix 2], we often 
have the problem of deleting a number of segments to bring 
in one segment. 

Let the following table indicate the segments present 
in memory in order of decreasing age. 


Segment 


Size in units/blocks of memory 


50 

51 

52 

53 


4 

6 

1 

15 


Table 3.1 



PROCEDURE expression? 

PROCEDURE simpleexpression? 
PROCEDURE term? 

PROCEDURE factor? 

BEGIN 

* 

♦ 

END? <* factor 
BEGIN term 
factor? 

WHILE sy = raulop DO 
BEGIN 


factor? 


END 

END? term 

BEGIN simpleexpression 


term? 


WHILE sam = addop DO 
BEGIN 

4 ’ 

4 

term? 


END 

END? <* simpleexpression *) 
BEGIN (t expression 
simpleexpression? 

IF sa = relop THEN 
BEGIN 


simpleexpression? 


END 

END? expression 


Fid* 3.2 Structure of Procedure Expression 



24 


If now a request to swap-in a segment of size 14 units 
is issued. All the 4 segments get removed. 

To circumvent the problem dealt in Example 3,1, one 
may be tempted to device a strategy that deletes 1±ie largest 
segment of the eligible segments. This policy is also not 
sound enough. 

Example 3,2 (Thrashing during expression parsing) 

Assume the expression being parsed is 
A + B 

The call traffic to parse the factor A is as shown in 
Table 3,2, The structure of the procedure expression is 
summarised in Fig, 3,2, Each procedure in the expression 


block is relatively 

large. 


Swapped out 

Swapped in 



Expression 

Call 

Expression 

Simple expression 

Call 

Simple expression 

Term 

Call 

Term 

Factor 

Call 

Factor 

Term 

Return 

Tem 

Simple expression 

Return 

Simple expression 

Expression 

Return 


Table 3,2 
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PROCEDURE insymbol J 
BEGIN <* insymbol *) 

CASE ch OF 

<3(tletters*), t BEGIN 

(5K code for identifiers end reserved words #) 
END? 

OlcdiSits*)*, JBEGIN 

(* code for inteser end reel constents 
END? 

JBEGIN 

code for strins constents 
ENDy 

(>Jcetc*> 

END (* cese ») 

END? <* insymbol #> 

Fi^» 3*3 Structure of Procedure Inssmbol showinS mutuelly 
exclusive code 


PROCEDURE insymboi? 

PROCEDURE ini dent? 

BEGIN 

(# code for scennind identifiers end reserved words 3tt) 
END? 

PROCEDURE innumber? 

BEGIN 

code for scenninsE number denotations Jfc) 

END? 

* 

BEGIN it insymbol 
CASE ch OF 

<* letters 3K) ♦♦♦ yinident? 
it numbers *)»♦♦* innumber? 


❖ 

END? it case JK) 
END? it insymboi 


Fid 3»4 * Restructured procedure Insymboi 



PROCEDURE expression 

PROCEDURE simpleexpressiorU ♦ > * ) 5 
PROCEDURE t©rm(***)? 

PROCEDURE f sctor < ♦ * * ) ? 

PROCEDURE f Sc i dent (»/♦)? 

BEGIM 

code to hendle Identifiers >i^> 

ENDS 

PROCEDURE facset? 

BEGIN 

code to handle sets 

ENDS 

BEGIN it factor -tc) 

♦ 

CASE ss OF 

ident % facident? 
strindconst t facstrinS? 

Ibrack ♦ facset? 

ENDS' <•« case t) 

END? it factor t) 

PROCEDURE iTiulfac? 

BEGIN 

' <1^ handle <triulop><f3ctor> J}:) 

■" WO ? 

BEGIN term *) 

■f actor < * ♦ ♦ ) ? 

WHILE sy »= iBulop DO mulfac? 

END? (4{ term ty 
PROCEDURE addterm? 

BEGIN 

handle <3ddop><term> 

END? 

BEGIN it siffipleexpression *) 

■ J . 

t©ria< ♦ ♦ ♦ ) ? 

WHILE sa = addop DO addterm? 

END? (Ht simpleexpression 
PROCEDURE relsexpr? 

BEGIN 

(^handle <relop><siffiPleexpression> 
END? 

BEGIN (* expression #) 
simpleexpression (»♦«)? 

IF sy = re 1 OP THEN relsexpr? 

END? < JR expression *> 

Fidt 3*5 Restructured Procedure Expression 
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It was observed that large parts of code are loaded 
and after execution of only a few instructions get swapped 
out. 

Thus, some efficiency can be obtained by breaking the 
larger procedures (especially most often used, see Appendix 2) 
into small procedures. Two obvious candidates for this 
operation are Insymbol and Expression block, A simple and 
effective strategy for partitioning programs was suggested 
by Hurst [lO], 

This strategy is based on the observation that the 
procedures usually have mutually exclusive sets of code. 

Fig, 3,3 illustrates sets of mutually exclusive sections 
of the procedure insymbol, Hurst suggests that these 
mutually exclusive sections be used to define new procedures. 
Fig, 3.4 and Fig, 3,5 respectively illustrate the application 
of this strategy on procedures insymbol and expression. 

Example 3.3 : 

The effect of applying the above sub-division was 
studied on the procedure Insymbol, During the compilation 
of the binary tree traversal program shown in Appendix 2, 
it has been observed that procedure Insymbol was called 
398 times and procedure Innumber was not called at alii 

3.3 PAS316 MEMORY “Management 

We for the purpose of this project have not pursued the 
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strategy of Section 3.2*2, because of its excessive cost* 

We instead, decided to exploit the additional hardware 
features of TDC-316 to build a rudimentary virtual memory 
manager. To this end we describe the relevant hardware 
on TDC— 316, in the next Section. 

3.3*1 TDC-316 ’s Memory Allocation and Protection (MAP) [7] 

The TDC-316 MAP unit provides hardware facilities for 
memory management for systems where the system memory size 
is greater than 28K words. 

The basic characteristics of the MAP unit are : 

i) 16 user mode memory segments 

ii) 16 supervisor mode memory segments 

iii) 8 segments each for instructions and data in each mode 

iv) Segment lengths from 32 to 4096 words* 

Eventhough, the wordlength and operational logic of 
TDC-316 is of 16-bit length, the CPU and Bus addressing logic 
are actually of 18-bits, These extra two bits provide the 
basic framework for expanded memory operation. 

The MAP unit makes available in the supervisor and 
user mode, 56K words of virtual address space (28K of 
Instruction and 28K of data). However, this would require 
that the programs resident in the I-space be pure. If not, 
D-space cannot be enabled and only 28K words of virtual 
space will be available in each mode. 
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Even this extended memory facility cannot directly be 
used for the Pascal-P system, Pascal-P needs data space 
in excess of what is available. The P-code interpreter 
regards both the P-code and the data segment as data. Thus 
eventhough, an addressing capability of words is adequate, 
28K words of data space is inadequate. 

We decided to use the MAP unit and provide the required 
data space by using the Transfer Communication Mode instru- 
ctions of TDC-316, This enabled us to use the hardware 
support available for memory management. 

This decision costs us execution of 2 additional instru- 
ctions for each fetch cycle of the P-machine {i,e, for each 
access to the P-machine 's code array). The scheme implemented 
is shown in Fig, 3,6, 
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PROCEDURE fetch (VAR v)} 

BEGIN 

transfer communication mode to FROM UD spacej 
v;= pcode [ppc] } 

transfer communication mode to NORMAL 
ENDj (* fetch *) 

PROCEDURE deposit (v)> 

BEGIN 

transfer communication mode to TO ID spacej 
pcode [ppc] := v> 

transfer communication mode to NORMAL 
END| (* deposit *) 

3*3.2 Segmentation 

The 32K words of total addressable area in each of the 
4 spaces, is divided into 8 segments , The segments can 
vary in length from 32 words to 4K words in multiples of 
32 words. Thus, there are a total of 32 segments. 

Each of the 32 segments has a relocation constant 
(MAP— AF), a length constant (MAP-LF) and an access control 
specifier (ACF) associated with it. These are stored in a 
register set called Active Segment Register (ASR), file. 

3.3.3 MAP Operation 

When the MAP unit is enabled, all addresses generated 
by the GPU are routed through it. The current processor 
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status specifies one of the four spaces, while the 
segment selection is through the three most significant bits 
of this virtual address. The relocation constant is 
combined with the 16-bit virtual address to get a relocated 
18-bit physical address. At the same time the segment 
length and the access typo are checked against the length 
constant and access control specifier for validity. If the 
access is a valid one, the relocated address is put on the 
bus for data access. Otherwise, the relevant information 
is strobed into the MAP status registers and access is 
aborted and a trap is generated. The status registers 
contain relevant information for program recovery and roll 
b ack. 

3.3.4 Segment Manager 

Since the Pascal-P code and Data Segments are contiguous 
arrays the maximal allowed segment size of 4K words was chosen. 

Thus the memory manager has to handle the 32 virtual 
segments in 4 spaces, through swapping in the 8 pages of core 
available on TDC-316* As the 8th segment in each space is 
required to be set aside for register and ROM use, we 
essentially have 28 virtual segments and 7 physical pages each 
of 4K words. 

The memory manager has a fixed 128K word swap space on 
the disk to accomodate the 32 virtual segments. The swap 
space has been organized such that the disk address calculation 



32 


is simple and once the transfer of data begins, there is 
no additional seek delay. The swap space has been organized 
as follows : 

The swap space for each segment is on a separate track. 
Hence, mapping from virtual segment number to track address 
is one to one. In each track four surfaces are used, each 
surface stores IK words. The eight sectors needed to store 
IK words have been chosen such that, all the IK words can be 
transferred at a time through CMA, and when the surface is 
switched the free sectors pass under the head. Thus, even 
latency delays are minimized, 

3.3.5 Replacement Policy : Passing the Parcel [l2] 

The segment replacement is based on an LRU approximation. 

It can best be described as Not Used Recently (NUR) policy. 

The policy can be best understood by visualizing the 
segments present in core to be involved in the passing the 
parcel game. At any instant of time a segment which is in 
core will be holding the parcel. A segment holding the parcel, 
is considered as the next candidate for swap out by the manager. 
It is actually marked OUTGO RE, even though is in-core. 

When a trap occurs (music stops!), if the reference is to 
the parcel holder, then it passes the parcel and is marked, 
IN(X)RE. This case is called a dummy trap, because no swapping 


of segments has actually taken place. If the reference was 
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not to the parcel holder* it is swapped out and the necessary 
segment is brought in. 

Physical seg. No. Virtual seg.No, Additional inf. 

0 . 0 



Parcel holder 

Fig. 3.7 Core table 

ALGORITHM swappolicyj 
VAR 

coretable : ARRAY[0.,7] OF (*8physical segments *) 
RECORD 

segno 0,.32} (* 32 virtual segments *) 

otherinfo 

END} 


parcelholder : 0..7} 
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PROCEDURE passparcelj 
BEGIN 

give parcel to the nearest eligible neighbour! 

(-jt round Robin *) 

(* a facility to make some .segments permanently resident 
is available. These segments never hold the parcel *) 
make coretable [parcelholder] • segno OUTCORE 
END} (* passparcel *) 

PROCEDURE initpolicy! 

BEGIN 

FOR 1;= 0 TO 7 DO 

Coretable [l3*segno:= 32} (* invalid segno *) 
parcelholder;= -1} passparcel 
END t («- initpolicy #) 

PROCEDURE system-wants (seg)} 

(* segment fault has occurred. System needs the segment 
SEG *) 

BEGIN 

IF coretable [parcelholder] • segno ^ seg THEN 
BEGIN 

Swapout (parcelholder)} 

Swapin( seg, parcelholder) 

END} 

make coretable [parcelholder] • segno INCORE} 
passparcel 

END} (# system-wants #) 
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3.4 CONCLUSIONS 


we have Ceec.ihe. the 3t„te,ios used to ptovtde the 
requisite environment for running a Pascal-P system. 

In Appendix 2, we show the 

now the performance of the memory 

manager. The relation between the trap rate and the 

^ 3^0 and the procoduxe 

calling sequence has been studied. 

The Paaoal file operators implemented have been used 
uniformly throughout the implementation. These were used 
as the 10 primitives for the rest of the system. 
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CHAPTER 4 

P-ASSEfABLER AND P-INTERPRETER 

The P-compiler transforms a Pascal program into an 
equivalent P-Machine*s assembly language program. The 
P~Assembler assembles this assembly language program. The 
syntax of the P-Machine*s assembly language is given in 
Appendix 4. The P-Assembler loads the P-Machine*s code array 
PCODE with the /object code, ready for interpretation. The 
object code can be salvaged into an object file by using 
the PSAVE program. 

The P-interpreter interprets the object code available 
in the code array PCODE. It can accept input from two 
standard files INPUT and PRD and can generate results in the 
two standard files OUTPUT and PRR. 

4.1 P-ASSEMBLER 

The P-assembler is a single pass assembler with back 
patching. It accepts the source program in file PRR and 
loads the object code in the P-ma chine’s code array PCODE. 

It uses a mnemonic table and a labeltable. The label table 
is used for storing the addresses of tables used in the 
assembly language and for back patching. 
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4.1.1 Data Structures 
TYPE 

labelrange - O. .. max-no-of-labels 

instrange = o raax-no-ins trj 

spfcnrange = 0 .. max-.no-spf cns j 

labst = ( entered, defined) j (* label status *) 

alfa = PACKED ARRAY [1..4] OF CHAR} 

VAR 

inst-table : ARRAY[ instrange] OF alfaj 

,( * binary search performed to locate mnemonic *) 

special-fcnproc-table : ARRAY[ spfcnrange] OF alfa} 

(* linear search to locate function/procedure mnemonic *) 
opcode- table: ARRAY[ instrange] OF INTEGER. 

(# opcode stoied, correspond to mnemonics in instruction 
table *) 

(* label table *) 

labelvalue: ARRAY[labelrange] OF INTEGER; 
label-status: ARRAY [labelrange] OF labst} 

Pcode: ARRAY[0 .. maxcode] OF BYTE} 

4.1.2 Algorithm 

The generation of the program from the BNF definition 
of the Assembly language defined in Appendix 4 is relatively 
straight forward. Since the number of instructions of 
opcode class 1 are relatively large, the P-assembler resolves 
the opcode class using a C/iSE statement rather than storing 
this information in the opcode table. 
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ALGORITHM P-assembler; 

BEGIN 
initj 
generatej 
ppc:= 0^ 
generate 

ENDj (* P-assernbler *) 

Generate produces the object code for an assembly record. 

PROCEDURE generatej 
BEGIN 

WHILE NOT eoln (source- file) DO 
BEGIN 

pr o c e s s -as s emb ly- s t a teme nt j 
Readln (source-file) 

END 

ENDj (* generate *) 

PROCEDURE process-assembly-statementj 
BEGIN 

CASE first character of line OF 
'I* ; ignore the linej 
'L’ : update-label- table j 
' * j as semble-the- instruction 
END 

END} (* process-assembly-statement *) 
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PROCEDURE update-label-tablej 
BEGIN 

i) get the label value, which is either the current value 
of location counter (ppc) or is as defined in this 
source linei 

ii) If there was a forward reference of this label then 
traverse the code array and update? 

iii)Store value of label in the label table 
END? (♦ update-label- table *) 

PROCEDURE assemble-the-instructionj 
BEGIN 

getmnemonic j 

binary search instruction table and get 

corresponding opcode value from opcode table? 

CASE opcode class of instruction OF 


procedure call instruction : ? 

return instruction s «,. ? 

load constants : ... ? 

special instr. CHK i ... ? 

special instr. MST ; ... ? 

opcode class 2 ; ... ? 

opcode class 3 : ... ? 

opcode class 4, ENT instruction : ... ? 

opcode class 5 j •». ? 

opcode class 6 ; ... ? 

opcode class 7 : ... ? 

opcode class 8 j ... ? 

others (opcode class l) : ... ? 
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The transformation from the assembly language to the 
P- machine’s instructions given in Appendix 5 is straight- 
forward except in the following cases : 


Assembly Instruction 

Code qenerated 

LDCB 

0 

LDCBF 

LDCB 

1 

LBCBT 

LDCN 

nilvalue 

LDCN 

CSP 

special fen name 

Specialfcn name 

Eg: 

CSP WRI 

WRI 

4,2 

P-INTERPRETER 


t 

CM 

• 

1 P-Machine’s Architecture 



The P-machine consists of 7 registers and a memory 

The 

registers are 


PPG 

- P-machine ’ s program counter 


PSP 

- P-machine 's stack pointer 


MP 

- Mark pointer, points to the 

base of the current 


activation record 


NP 

- New pointer, points to the 

top of the Heap 

OP 

- opcode 


P 

- P-operand 


Q 

- Q-operand, 
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OP,P and Q together from the Instruction Register, 

The memory is organized as two linear arrays. One 
called PCODE and the other PSTK. The PCODE is an array of 
bytes which is accessed through the two procedures fetch 
and deposit. The PSTK is an array of words. PPG is an 
index into PCODE and PSP, MP and NP are indices into PSTK. 

The Stac k and the Heap as required by the executing 
Pascal program grow towards each other starting at the two 
ends of PSTK. 

The stack grows from 0 upwards and consists of all 
directly addressable data according to the data declaration. 
Storage overflow occurs if PSP and NP meet. The Heap grows 
downwards from the top of the PSTK. 


1 stack 

PSP 

L 


i 

i 

rfC- MD 

Heap 



Fig. 4.1 PSTK 

The Heap grows when the memory allocation is done 
through the standard procedure NEW. 
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The Stack consists of a sequence of activation 
records, each belonging to an active procedure or function. 

. The activation record starting at PSTK [O] belongs to the 

main block of the Pascal program. 

An activation record consists of the following sequence 
of information! 



Fig, 4,2 Activation Record 
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® stack: parti a parameter section if there are any 

parameters to the procedure or function to which the activa- 
tion record belongs | a local-variables sections if there are 
any local variables declared within the procedure or function 
to which the activation record belongs| any temporary 
elements which may be required in the program-evaluation 
process. 

The mark stack paft has further internal structure. 

It is 5 words long. The first field is space for preser- 
ving the value returned by a function. It is included even 
for procedures for the sake of uniformity. This field is 
of 2 words, to enable returning real values. The second 
field is a pointer called static link} the third field is a 
pointer called dynamic link} the fourth field is a pointer 
called the Return address. The static and dynamic links 
are indices into PSTK and return address is an index into 
PCODE. 

There are two types of parameters ; 

a) pointers (into PSTK) in case the corresponding parameters 
are of type call by reference or of type call by value 
but of record or array type or 

b) the parameter is call by value and the value is passed. 

Before a procedure or function call is made, a mark stack 
instruction (MST) is executed with a parameter which allows 
the links to be filled. 
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Then a series of expression evaluations fill in the 
parameter section. After this a call user procedure (CUP) 
or a call standard procedure (CSP) instruction is executed, 

4,2,2 P-Machine*s Instruction Set and Addressing Modes 

The P-Machine's Instruction set is given in detail in 
Appendix 5. The constructs defined in Pascal are strongly 
reflected in the instructions of the P~machine. 

A set of 4 new instructions have been introduced into 
•fche P-machine, to supplement those defined in the original 
P-compiler [13], These are LDL, STL,,LAL and UJC, 

The introduction of new instructions to load and store 
local variables is based on the premise that variables local 
to a procedure are accessed more frequently and therefore 
require fast access by short instructions, whereas access to 
remote variables is relatively rare and requires less 
efficiency- 

The LDL, STL and LAL are new mnemonics for the original 
P instructions LOD 0, Qj STR 0, Q| and LAL 0, Q with the 
parameter 0 dropped, 

UJC, is used to trap undefined case labels at run time. 
The compiler generates the UJC instruction for all values of 
the case variable, that have not been defined but lie within 
the range of the case statement (Refer Fig. 2,1,) 
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Hence, access to the most often used variables, which 
in general are the local variables and global variables 
(variables defined in the outermost block of the Pascal 
program) are accessed through base registers. The base 
of the current activation record is stored in the register^ 
MP and the base of the outermost block is 0. 

Instructions consist of one or several bytes. They 
can be divided into four basic categories : load and store 
instructions, operators, control instructions and miscella- 
neous instructions : 

The load and store instructions transfer data between 
memory (stack or heap) and the top of the stack-, where they 
are accessed by operators. The top of the stack, where data 
are loaded as intermediate results is also called the 
expression stack. 

The system allows the creation of an activation record 
or a dynamic variable, only if there are atleast 100 words 
available, for the expression stack. This feature is based 
on the premise that the amount of stack space needed for 
evaluation of an expression is less than 100 words, which is 
generally true. Load and store instructions involving local 
and global variables require only a single offset address 
because the stack address is implicit. For intermediate 
variables, an additional parameter specifies the level ' 
difference, which indicates, the number of levels to descend 
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using the static links for accessing the variables. The 
load and store instructions are further subdivided depending 
on the data size. The transferred data may be a word 
( 16 bits), a double word or four words. 

The addressing modes available on the P-machine are 
defined as follows : 

( p and q denote the instruction parameters, 'a* denotes 
the resulting address and psp is stack pointer) t 

- local mode s a = MP+q, used for variables local to 
procedures, 

- Global mode ; a = q, used for global variables, 

- Stack mode: a = base (p) + q, used for intermediate 
variables. 

Base (p) returns the contents of the dynamic link 
field of the activation record which is p levels below 
the current activation record. Base descends the stack 
using the static link fields of activation -records, 

- Indirect mode : a = pstk [psp] + q, mode used for 
indirect addressing and access via pointers. 

Indexed modes : a « si + q * s2, si is ihe arrays base 
address, and s2 the computed index {si, s2 are on stack 
at pstk [psp-l] and pstk[psp] ), q is a multiplier 
depending on the size of the accessed data type. 
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— immediate mode: the immediate mode is used to load 
constants. The size of the operands depends on the 
type of the constant being loaded. The operand size 
may be 0,1,2, 4 or many words depending on the constant 
being loaded is a boolean constant or nil, an integer, 
a real, a set or a string respectively. 

The second category of instructions are the operators. 
They take operands' from the top of the stack and replace ■them 
by the result. The P-machinc instruction sot includes 
operators for integer, real, boolean and set arithmetic. 

There is a full set of comparison instructions which genera- 
te a boolean result. Distinct sets are available for 
integer, real, boolean and set comparisons. 

Control instructions include procedure calls, procedure 
returns and jumps. Conditional jumps are generated for IF, 
WHILE, REPEAT and ’FOR statements. Indexed jumps are 
generated for CASE statements. They fetch their operand 
from the stack. There are explicit instructions for checking 
the array index bounds and subrange bounds, and undefined 
case labels. 

The miscellaneous instructions category contains 
operators for reading and writing data on files, marking 
stack, entering a block and dynamic memory allocation 


and deallocation. 
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4.2,3 P-Instruction Execution 

For the purposes of execution, the opcodes are divided 
into three categories. The type of the opcode is detected 
by the interpreter by checking one bit of the opcode. The 
P-interpreter program is available in Appendix 6. The 
algorithms used for interpreting the various instructions 
are self-explanatory, 

ALGORITHM p-interpreterj 
BEGIN 

interpret: = true? 

WHILE interpret DO 
BEGIN 

fetchopcodej 
CASE type- 0 f-opcode OF 
type 0 : execute j 
type 1 : fetchoperandsi execute; 
type 2 : fetchoperands j set registers execute 
END 

END (# interpret is made false when a STP instruction 
is executed *) 

END } (* P-interpreter *) 
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CHAPTER 5 

CONCLUSION : 

\ 

The P-Assembler, P- interpreter and the support 
. software have been written and implemented on TDC-316. 

Except for a small module, all modules were written in 

■ 

BLISSll. The remaining module concerned with restoring 
of computer registers after a memory management trap, was 
coded in assembly language, to have explicit control on 
the code generated. i 

The developed software has not yet gone through exhaus- | 

tive performance evaluation because of the constraints of 
time. But the limited experience we have is satisfying. 

A user interacts with the system through the command 
processor. He can use this processor to compile, assemble and 
interpret his Pascal program. If he so desires he can direct 
the command processor to skip any one or more of the above 
steps. An user manual is available in Appendix 8. Fig. 5.1 
indicates the structure of the PAS316 system, 

5.1 CRITICAL REVIEW OF PAS316 AND SUGGESTIONS FOR FURTHER WORK i 

The major bottleneck in the use of the present system is 
the nonavailability of an efficient filing system. An editor 
to input Pascal programs and data is needed to make the system 
fully operational. A filing system and a Text Editor are 
currently under development in sister projects [1,3]. i 




51 


The present version of PAS316 does not support real 
arithmetic. A floating point processor or a floating point 
software package may be added to. augment the system. 

An integrated test of the complete P-system has not yet 
been made on TDC-316 because of lack of requisite utility 
systems. All the modules have been tested and found satis- 
factory on TDC-316- Also assembly and interpretation of 
Pascal programs have been successfully tested on a simulator 
of TDC-316 on DEC- 10. 


CENT^'.'- 
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